#!/usr/bin/perl

package PerLISP::Util;

require Exporter;

use strict;
use warnings;

our @ISA = qw( Exporter );
our @EXPORT = ();
our @EXPORT_OK = ();


sub array_to_list {
  my $ref = shift;
  return unless $ref;
  my @ref = @{ $ref };
  my $var = $ref[0];
  
  if ( ref( $var ) eq 'ARRAY' ) {
    my $val = array_to_list( $var );
    cons( 

1;
__END__
